home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib17.dsk / T5 TEST.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  29 lines
  1. 1  REM  **********************
  2. 2  REM  *      T5  TEST      *
  3. 3  REM  *  BY ROBERT DEVINE  *
  4. 4  REM  * COPYRIGHT (C) 1983 *
  5. 5  REM  * BY MICROSPARC, INC *
  6. 6  REM  * LINCOLN, MA. 01773 *
  7. 7  REM  **********************
  8. 8  TEXT : HOME 
  9. 9  VTAB 12: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC. **"
  10. 10  PRINT  CHR$(4)"BLOAD BLOCK ROUTINES $90AA": CALL 37799
  11. 15  PRINT  CHR$(4)"BLOAD BLOCK/SQUIRMS-5"
  12. 16  PRINT  CHR$(4)"BLOAD T5.OBJ"
  13. 20  FOR X = 33280 TO 33311: POKE X,1: NEXT : REM  Set Squirm status pointers at $8200
  14. 30  POKE 37696,234: POKE 37697,234: REM   Cancel DRAW EOR function
  15. 100  POKE 251,128: HOME : HGR :X =  PEEK(49234)
  16. 190  POKE 43,30: REM  Set TOPLMT (Columns 1 and 3 begin at Y=30)
  17. 200  CALL 20480: REM  DRAW Squirms at starting positions
  18. 210  ON ( INT( RND(1) *9) +1) GOSUB 300,300,300,300,310,320,320,320,320: REM  UP,RIGHT,DOWN
  19. 230  GOTO 210
  20. 300  IF  PEEK(43) < = 16  THEN 322: REM  Test TOPLMT for moving up
  21. 302  POKE 251,129: REM  Set NON-Shifted shapes
  22. 305  POKE 235,1: CALL 20502: RETURN : REM  Move up
  23. 310  GOSUB 400: POKE 251,128: REM  Set Shifted shapes
  24. 315  POKE 235,0: CALL 20502: RETURN : REM  Move right -->
  25. 320  IF  PEEK(43) > = 44  THEN 302: REM  Test TOPLMT for moving down
  26. 322  POKE 251,129: REM  Set NON-Shifted shapes
  27. 325  POKE 235,2: CALL 20502: RETURN : REM   Move down
  28. 400  IF  PEEK(26) > = 39  THEN  POP : POP : GOTO 100: REM  At right edge of screen-start over again
  29. 405  RETURN